home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGIALS
/
PTUTOR2B.LZH
/
CHARDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
409b
|
19 lines
(* Chapter 3 - Program 7 *)
program Char_Demonstration;
var Letter : char;
Number : char;
Dogfood : char;
begin
Letter := 'P';
Number := 'A';
Dogfood := 'S';
Write(Letter,Number,Dogfood);
Letter := Number; (* This is now the 'A' *)
Number := 'L';
Dogfood := 'C';
Write(Dogfood,Letter,Number);
Writeln;
end.